home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Tele / A / ASU Library Folder / ASU Red Ryder Shell Source / ASU Red Ryder Shell < prev    next >
Encoding:
Text File  |  1988-04-08  |  1.9 KB  |  123 lines  |  [TEXT/MACA]
  1. QUIET
  2. ALT ON
  3. DELKEY OFF
  4. CRC ON
  5. VT100
  6. ECHO OFF 
  7. STRIP OFF
  8. XKSTRIP ON
  9. DISPLAY 80
  10. MBAR
  11. SCREEN OFF
  12. :BEGIN
  13. USEROPENI 1,ASU-Preferences
  14. USERREAD 1,S$
  15. USERREAD 1,P$
  16. USERREAD 1,L$
  17. USERREAD 1,N$
  18. USERCLOSE 1
  19. SETGROUP 1,1
  20. COPYINTO A$,S$
  21. CONCAT A$,BPS, 
  22. CONCAT A$,P$
  23. CONCAT A$, PORT, 
  24. CONCAT A$,L$
  25. CONTAINS A$,DIRECT
  26. IF YES JUMPTO HOSTS
  27. CONCAT A$,, 
  28. CONCAT A$,N$
  29. :HOSTS
  30. SHELL F%,1000
  31. TEST F% = 8
  32. IF YES JUMPTO SETTINGS
  33. TEST F% = 9
  34. IF YES JUMPTO QUIT
  35. CONTAINS P$,MODEM
  36. IF YES MODEM
  37. CONTAINS P$,PRINTER
  38. IF YES PRINTER
  39. GETGROUP A%,1
  40. TEST A% = 1
  41. IF YES COPYINTO H$,ACIBM
  42. TEST A% = 2
  43. IF YES JUMPTO ADMIN
  44. TEST A% = 3
  45. IF YES COPYINTO H$,ACVAX
  46. TEST A% = 4
  47. IF YES DO WYLB.PROC
  48. TEST A% = 5
  49. IF YES COPYINTO H$,LIBR
  50. TEST A% = 6
  51. IF YES DO BBS.PROC
  52. :BROADBAND
  53. CONTAINS S$,300
  54. IF YES DO 300.PROC
  55. CONTAINS S$,1200
  56. IF YES DO 1200.PROC
  57. CONTAINS S$,2400
  58. IF YES DO 2400.PROC
  59. CONTAINS S$,9600
  60. IF YES DO 9600.PROC
  61. :ADMIN
  62. COPYINTO H$,ADMIN
  63. CONTAINS L$,DIRECT
  64. IF YES DO 9600.PROC
  65. DO ADMN.PROC
  66. :SETTINGS
  67. CONTAINS P$,MODEM
  68. IF YES SETGROUP 1,1
  69. CONTAINS P$,PRINTER
  70. IF YES SETGROUP 1,2
  71. SETGROUP 2,4
  72. CONTAINS S$,300
  73. IF YES SETGROUP 2,1
  74. CONTAINS S$,1200
  75. IF YES SETGROUP 2,2
  76. CONTAINS S$,2400
  77. IF YES SETGROUP 2,3
  78. CONTAINS S$,9600
  79. IF YES SETGROUP 2,4
  80. CONTAINS L$,DIRECT
  81. IF YES SETGROUP 3,1
  82. CONTAINS L$,TOUCHTONE
  83. IF YES SETGROUP 3,2
  84. CONTAINS L$,PULSE
  85. IF YES SETGROUP 3,3
  86. SHELL F%,1100
  87. TEST F% = 2
  88. IF YES JUMPTO BEGIN
  89. GETGROUP A%,1
  90. GETGROUP B%,2
  91. GETGROUP C%,3
  92. TEST A% = 1
  93. IF YES COPYINTO P$,MODEM
  94. TEST A% = 2
  95. IF YES COPYINTO P$,PRINTER
  96. TEST B% = 1
  97. IF YES COPYINTO S$,300
  98. TEST B% = 2
  99. IF YES COPYINTO S$,1200
  100. TEST B% = 3
  101. IF YES COPYINTO S$,2400
  102. TEST B% = 4
  103. IF YES COPYINTO S$,9600
  104. TEST C% = 1
  105. IF YES COPYINTO L$,DIRECT
  106. TEST C% = 2
  107. IF YES COPYINTO L$,TOUCHTONE
  108. TEST C% = 3
  109. IF YES COPYINTO L$,PULSE
  110. USEROPENO 1,ASU-Preferences
  111. USERWRITE 1,S$
  112. USERWRCR 1
  113. USERWRITE 1,P$
  114. USERWRCR 1
  115. USERWRITE 1,L$
  116. USERWRCR 1
  117. USERWRITE 1,N$
  118. USERWRCR 1
  119. USERCLOSE 1
  120. JUMPTO BEGIN
  121. :QUIT
  122. QUIT
  123. END